home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Graphics / Ghostscript / source / writecff.ps < prev    next >
Text File  |  1997-05-28  |  10KB  |  380 lines
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % writecff.ps
  19. % Write out a Type 1 font as CFF.
  20. % **************** THIS FILE DOES NOT WORK. ****************
  21. % **************** DON'T TRY TO USE IT. ****************
  22.  
  23. currentglobal true setglobal
  24. (gs_cff.ps) runlibfile
  25. (t1tot2.ps) runlibfile
  26. setglobal
  27.  
  28. 50 dict begin
  29.  
  30. % ---------------- Standard strings/names ---------------- %
  31.  
  32. /FontSetInit /ProcSet findresource begin mark
  33.  
  34. /StandardSIDs StandardStrings length 1.5 mul cvi dict
  35. dup 0 1 StandardStrings length 1 sub {
  36.   dup StandardStrings exch get exch put dup
  37. } for pop
  38.  
  39. end counttomark 2 idiv { def } repeat
  40.  
  41. % ---------------- Standard encodings ---------------- %
  42.  
  43. % ---------------- Standard Charsets ---------------- %
  44.  
  45. % ---------------- Output utilities ---------------- %
  46.  
  47. % Free variables: f (output file), fpos (position in f).
  48.  
  49. /advance {        % <n> advance -
  50.   fpos add /fpos exch store
  51. } def
  52. /next {            % <byte> next -
  53.   f exch write 1 advance
  54. } def
  55. /nextstring {        % <string|name> nextstring -
  56.   dup type /nametype eq { .namestring } if
  57.   f 1 index writestring length advance
  58. } def
  59. /card8            % <card8> card8 -
  60.   /next load
  61. def
  62. /card16 {        % <card16> card16 -
  63.   dup -8 bitshift next 255 and next
  64. } def
  65. /offset {        % <offset> <offsize> offset -
  66.   1 sub -1 0 { -8 mul 2 copy bitshift 255 and next pop } for pop
  67. } def
  68. /sid            % <sid> sid -
  69.   /card16 load
  70. def
  71. /lenoffsize {        % <length> lenoffsize <offsize>
  72.   dup 255 le { pop 1 } { -8 bitshift lenoffsize 1 add } ifelse
  73. } def
  74. /Index {        % [<string|name|null> ...] Index -
  75.     % Calculate the maximum offset we need to be able to represent.
  76.   1 1 index { dup null eq { pop } { length add } ifelse } forall lenoffsize
  77.     % stack: items offsize
  78.   1 index length card16
  79.   dup next
  80.   1 2 index {
  81.       % stack: items offsize pos item
  82.     1 index 3 index offset
  83.     dup null eq { pop } { length add } ifelse
  84.   } forall exch offset { nextstring } forall
  85. } def
  86. /idIndex {        % <dict> <base> idIndex -
  87.   1 index length array 3 -1 roll {
  88.     3 index sub 2 index exch 3 -1 roll put
  89.   } forall exch pop Index
  90. } def
  91. /stringid {        % <string|name> stringid <sid>
  92.   StandardSIDs 1 index .knownget {
  93.     exch pop
  94.   } {
  95.     sids 1 index .knownget {
  96.       exch pop
  97.     } {
  98.       StandardSIDs length sids length add sids 3 -1 roll 2 index put
  99.     } ifelse
  100.   } ifelse
  101. } def
  102. /.valuetypedict mark
  103.   /booleantype { { 1 } { 0 } ifelse intvalue }
  104.   /arraytype { { value } forall }
  105.   /packedarraytype 1 index
  106.   /stringtype { stringid intvalue }
  107.   /nametype 1 index
  108.   /realtype { realvalue }
  109.   /integertype { intvalue }
  110. .dicttomark readonly def
  111. /value {        % <obj> value -
  112.   dup type .valuetypedict exch get exec
  113. } def
  114. /.realchardict mark
  115.   48 1 57 { dup 48 sub } for    % digits
  116.   46 10   69 11   101 11    % . E e
  117.   45 {                % - -- handle E- specially
  118.     dup 15 and 11 eq { 15 or 12 } {
  119.       dup 16#bf eq { pop 255 12 } { 14 } ifelse
  120.     } ifelse
  121.   }
  122. .dicttomark readonly def
  123. /realvalue {        % <real> realvalue -
  124.   =string cvs 255 exch {
  125.     .realchardict exch get exec
  126.     1 index 15 and 15 ne { exch next 255 exch } if
  127.     1 index 240 and 240 eq { 4 bitshift 240 } { 15 } ifelse sub add
  128.   } forall next
  129. } def
  130. /intvalue {        % <int> intvalue -
  131.   dup dup -107 ge exch 107 le and { 139 add next } {
  132.     dup dup -1131 ge exch 0 lt and { neg 16#fa94 add card16 } {
  133.       dup dup 1131 le exch 0 ge and { 16#f694 add card16 } {
  134.     dup dup -32768 ge exch 32767 le and {
  135.       28 next 65535 and card16
  136.     } {
  137.       29 next dup -16 bitshift 2 { 65535 and card16 } repeat
  138.     } ifelse
  139.       } ifelse
  140.     } ifelse
  141.   } ifelse
  142. } def
  143. /op {            % <op> op -
  144.   dup 32 ge { 12 next 32 sub } if next
  145. } def
  146. /vdef {            % <obj> <op> vdef -
  147.   exch value op
  148. } def
  149. /nedef {        % <obj> <default> <op> nedef -
  150.   exch 2 index eq { pop pop } { vdef } ifelse
  151. } def
  152. /Dict {            % <dict> <opsdict> Dict -
  153.   exch {
  154.     % stack: opsdict key value
  155.     2 index 3 -1 roll .knownget {
  156.       dup type /integertype eq { vdef } { exec } ifelse
  157.     } {
  158.       pop
  159.     } ifelse
  160.   } forall pop
  161. } def
  162. /collect {        % <proc> collect <string>
  163.   10 dict begin
  164.   /str 500 string def
  165.   /spos 0 def
  166.   /fpos 0 def
  167.   /f {
  168.     pop length spos add /spos exch store
  169.     spos str length eq { /str str str concatstrings def } if
  170.     str spos str length spos sub getinterval
  171.   } /NullEncode filter def
  172.   exec f closefile
  173.   str 0 spos getinterval end
  174. } def
  175.  
  176. % ------ Top (font) dictionary ------ %
  177.  
  178. /topkeyops mark
  179.   /version 0
  180.   /Notice 1
  181.   /Copyright 32
  182.   /FullName 2
  183.   /FamilyName 3
  184.   /Weight 4
  185.   /isFixedPatch { false 33 nedef }
  186.   /ItalicAngle { 0 34 nedef }
  187.   /UnderlinePosition { -100 35 nedef }
  188.   /UnderlineThickness { 50 36 nedef }
  189.   /PaintType { 0 37 nedef }
  190.   /CharstringType { 2 38 nedef }
  191.   /FontMatrix {
  192.     true 0 1 5 {
  193.       2 index 1 index get {0.001 0 0 0.001 0 0} 3 -1 roll get eq and
  194.     } for
  195.     { pop } { value 39 op } ifelse
  196.   }
  197.   /UniqueID 13
  198.   /FontBBox 5
  199.   /StrokeWidth { 0 40 nedef }
  200.   /XUID 14
  201.   /FontInfo { topkeyops Dict }
  202.     %**** Encoding
  203.   /CharStrings { pop /charstringsoffset fpos store 32767 value 17 op }
  204.   /Private { pop /privateoffset fpos store 32767 value 18 op }
  205. .dicttomark readonly def
  206.  
  207. % ------ Private dictionary ------ %
  208.  
  209. /deltarray {        % [<num> ...] <op> deltarray -
  210.   exch 0 exch { 1 index sub dup value add } forall pop op
  211. } def
  212. /privatekeyops mark
  213.   /BlueValues { 6 deltarray }
  214.   /OtherBlues { 7 deltarray }
  215.   /FamilyBlues { 8 deltarray }
  216.   /FamilyOtherBlues { 9 deltarray }
  217.   /BlueScale { 0.039625 41 nedef }
  218.   /BlueShift { 7 42 nedef }
  219.   /BlueFuzz { 1 43 nedef }
  220.   /StdHW 10
  221.   /StdVW 11
  222.   /StemSnapH { 44 deltarray }
  223.   /StemSnapV { 45 deltarray }
  224.   /ForceBold { false 46 nedef }
  225.   /ForceBoldThreshold { 0 47 nedef }
  226.     % Skip lenIV, it's always -1
  227.   /LanguageGroup { 0 49 nedef }
  228.   /ExpansionFactor { 0.06 50 nedef }
  229.   /initialRandomSeed { 0 51 nedef }
  230.   /Subrs { pop /subroffset fpos store 32767 value 19 op }
  231.   /defaultWidthX { 0 20 nedef }
  232.   /nominalWidthX { 0 20 nedef }
  233. .dicttomark readonly def
  234.  
  235. % ------ Main program ------ %
  236.  
  237. /putoffset {        % <str> <index> <offset> putoffset -
  238.     % The saved index points to the 29 byte, so we must add 1.
  239.   3 copy exch 1 add exch -8 bitshift put
  240.   exch 2 add exch 255 and put
  241. } def
  242.  
  243. /writecff {        % <file> [<font> ...] writecff -
  244.   30 dict begin
  245.   /fonts exch cvlit def
  246.   /cff exch cvlit def
  247.  
  248.   /f cff def
  249.   /fpos 0 def
  250.  
  251.     % We need to pre-construct all the strings so that we know
  252.     % the offsets to fill in.
  253.  
  254.   /names { [ fonts { /FontName get } forall ] Index } collect def
  255.   /sids 20 dict def
  256.   /subrcounts fonts length 200 mul dict def
  257.   /subrs [ fonts {
  258.     /font 1 index def
  259.     /Private get /Subrs .knownget {
  260.       [ exch {
  261.     dup null ne {
  262.       dup subrcounts exch 2 copy .knownget { 1 add } { 1 } ifelse put
  263.       t1tot2
  264.     } if
  265.       } forall ] { Index } collect
  266.     } {
  267.       <>
  268.     } ifelse
  269.   } forall ] def
  270.     % At this point we should use subrcounts to move any duplicated
  271.     % subrs from local to global....
  272.   DEBUG {
  273.     0 subrcounts { exch pop add } forall =only ( total subrs) =
  274.     subrcounts length =only ( distinct subrs) =
  275.     0 subrcounts { 1 sub exch length mul add } forall =only ( space for duplicates) =
  276.   } if
  277.     %****** FOLLOWING IS WRONG, WRONG, WRONG ******%
  278.   /charstrings [ fonts {
  279.     /font 1 index def
  280.     /CharStrings get [ exch {
  281.       exch pop t1tot2
  282.     } forall ] { Index } collect
  283.   } forall ] def
  284.   /subroffset null def
  285.   /privates [ 0 1 fonts length 1 sub {
  286.     /i exch def
  287.     /pstr fonts i get /Private get { privatekeyops Dict } collect def
  288.     /len pstr length def
  289.     pstr subroffset len putoffset    %**** WRONG ****
  290.     pstr
  291.   } for ] def
  292.   /strings { sids StandardSIDs length idIndex } collect def
  293.  
  294.     % Now we can write the real file.
  295.     % Header
  296.   DEBUG { (header ) print fpos == } if
  297.   <01 00 04 02> nextstring
  298.     % Name Index
  299.   DEBUG { (names ) print fpos == } if
  300.   names nextstring
  301.     %****** FOLLOWING IS WRONG, WRONG, WRONG -- OFFSETS MISSING ******%
  302.     % Top Dicts
  303.   DEBUG { (tops ) print fpos == } if
  304.   /charstringsoffset null def
  305.   /privateoffset null def
  306.   fonts {
  307.     dup length 2 add dict copy
  308.     dup /CharstringType 2 put
  309.     topkeyops Dict
  310.   } forall
  311.     % String Index
  312.   DEBUG { (strings ) print fpos == } if
  313.   strings nextstring
  314.     % Charstrings Indexes
  315.   DEBUG { (charstrings) print } if
  316.   charstrings { DEBUG { ( ) print fpos =only } if nextstring } forall
  317.   DEBUG { () = } if
  318.     % Private Dicts
  319.   DEBUG { (privates) print } if
  320.   privates { DEBUG { ( ) print fpos =only } if nextstring } forall
  321.   DEBUG { () = } if
  322.     % Local Subr Indexes
  323.   DEBUG { (subrs) print } if
  324.   subrs { DEBUG { ( ) print fpos =only } if nextstring } forall
  325.   DEBUG { () = } if
  326.  
  327.   DEBUG { (end ) print fpos = flush } if
  328.   end
  329. } def
  330.  
  331. % ---------------- Wrap up ---------------- %
  332.  
  333. currentdict readonly end
  334. /writecffdict exch def
  335.  
  336. /writecff {
  337.   writecffdict begin writecff end
  338. } def
  339.  
  340. % Test case
  341. (t.cff) (w) file dup
  342. [ {
  343. /Bookman-Demi
  344. /Bookman-DemiItalic
  345. /Bookman-Light
  346. /Bookman-LightItalic
  347. /Courier
  348. /Courier-Oblique
  349. /Courier-Bold
  350. /Courier-BoldOblique
  351. /AvantGarde-Book
  352. /AvantGarde-BookOblique
  353. /AvantGarde-Demi
  354. /AvantGarde-DemiOblique
  355. /Helvetica
  356. /Helvetica-Oblique
  357. /Helvetica-Bold
  358. /Helvetica-BoldOblique
  359. /Helvetica-Narrow
  360. /Helvetica-Narrow-Oblique
  361. /Helvetica-Narrow-Bold
  362. /Helvetica-Narrow-BoldOblique
  363. /Palatino-Roman
  364. /Palatino-Italic
  365. /Palatino-Bold
  366. /Palatino-BoldItalic
  367. /NewCenturySchlbk-Roman
  368. /NewCenturySchlbk-Italic
  369. /NewCenturySchlbk-Bold
  370. /NewCenturySchlbk-BoldItalic
  371. /Times-Roman
  372. /Times-Italic
  373. /Times-Bold
  374. /Times-BoldItalic
  375. /Symbol
  376. /ZapfChancery-MediumItalic
  377. /ZapfDingbats
  378.   } { findfont } forall
  379. ] writecff closefile
  380.